home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / TIMWIN.ZIP / DSPAAK.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  450b  |  32 lines
  1. #include timdefs.h
  2.  
  3. parms
  4.   int windis
  5. endparms
  6. float fHoek = 270.0
  7. int regel = 0
  8. int err
  9.  
  10. err = chk lut 1
  11. dest p
  12. show p
  13. era q
  14. cstr miss
  15. era 1
  16. err = chk lut 3
  17. ;curs 200 128            cursor position
  18. for regel = 0 to 255  
  19.   rdvec p fHoek 0 200 128
  20.   xorvec p fHoek 0 200 128 1
  21.   ihis q regel  
  22.   fHoek += 360.0 / 256.0
  23. endfor
  24. era q 1
  25. dest p
  26. *windispl h (windis+WINLUT3+BITCOPY1)
  27. dest s
  28. rotl q
  29. *windispl i windis
  30.  
  31. stop
  32.